home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / BASIC / ARUN.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-09-26  |  1.4 KB  |  75 lines
  1. $INCLUDE "REGNAMES.INC"
  2. COLOR 14
  3.  
  4. IF CheckVector(&H49)=0 THEN
  5.  SOUND 2000,2
  6.  PRINT "FEHLER: ATUtilities File Transfer ist nicht installiert!"
  7.  GOTO ende
  8. END IF
  9. GOSUB CmdAuswertung
  10.  
  11. REG %AX,(&H6*256)
  12. CALL INTERRUPT &H49
  13. segment=REG(%ES)
  14. offset=REG(%DI)
  15.  
  16. DEF SEG = segment
  17.  
  18. a$=a$+CHR$(0)
  19. FOR i=1 TO LEN(a$)
  20.  POKE offset+i-1,ASC(MID$(a$,i,1))
  21. NEXT
  22.  
  23. REG %AX,(19*256)
  24. CALL INTERRUPT &H49
  25. IF REG(%BX)<>10000 THEN
  26.  SOUND 2000,2
  27.  PRINT "Befehl konnte nicht ausgefhrt werden."
  28.  REG %AX,(10*256)
  29.  CALL INTERRUPT &H49
  30.  f=REG(%BX)
  31.  PRINT "AmigaDOS-Fehlercode:";f
  32.  GOTO ende
  33. ELSE
  34.  PRINT "Befehl wurde erfolgreich ausgefhrt."
  35. END IF
  36.  
  37. ende:
  38. COLOR 7
  39. END
  40.  
  41. CmdAuswertung:
  42. cmd$=COMMAND$
  43. a$=cmd$
  44. IF a$="/?" OR a$="?" OR a$="" THEN
  45.  GOTO argf
  46. END IF
  47. RETURN
  48.  
  49. argf:
  50. SOUND 2000,2
  51. PRINT "ARun - Version 1.0  Copyright (C) 1993 by Thomas Dreibholz"
  52. PRINT ""
  53. PRINT "ARun startet ein beliebiges Amiga-Programm (Run-Befehl). Es k”nnen auch"
  54. PRINT "Batch-Dateien oder ARexx-Scripts gestartet werden:"
  55. PRINT "  ARun C:Execute BatchDatei"
  56. PRINT "  ARun RexxC:rx RexxDatei"
  57. PRINT ""
  58. PRINT "Aufruf: ARun [Amiga-Befehl {Argumente} | ? | /?}"
  59. PRINT ""
  60. GOTO ende
  61.  
  62.  
  63. FUNCTION CheckVector(num) STATIC
  64.  REG %AX,(&H35*256)+num
  65.  CALL INTERRUPT &H21
  66.  segm=REG(%ES)
  67.  offs=REG(%BX)
  68.  DEF SEG = segm
  69.  IF (segm=0) OR (PEEK(offs)=207) THEN
  70.   CheckVector=0
  71.  ELSE
  72.   CheckVector=1
  73.  END IF
  74. END FUNCTION
  75.